#lang racket

(define (beside painter) 0)

(define (below painter) 0)

(define (split or1 or2)
  (lambda (painter n)
    (if (= n 0)
        painter
        (let ((smaller (split painter (- n 1))))
          (or1 painter (or2 smaller smaller))))))